attach(data)
aggdata <- aggregate(data$Ta_200, by=list(as.POSIXct(Datetime),Ta_200),
                     FUN=max)
print(aggdata)
detach(data)